﻿Public Class FrmFactCo
    Private dtProductos As DataTable

    Private Sub crearEstructura()
        dtProductos = New DataTable
        dtProductos.Columns.Add(New DataColumn("cCelular", Type.GetType("System.String")))
    End Sub

    Private Sub FrmFactCo_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ToolTip1.SetToolTip(btGuardar, "Guardar Factura")
        dtProductos = New DataTable
    End Sub

    Private Sub btBusCod_Click(sender As System.Object, e As System.EventArgs) Handles btBusCod.Click
        Dim oFrmBP As New FrmBProducto
        oFrmBP.BuscarPor = "CODIGO"
        Dim dlg As DialogResult = oFrmBP.ShowDialog()
        If dlg = DialogResult.OK Then
            Dim oProd As New GBDZafiro.Producto
            oProd = oFrmBP.oProducto
            oFrmBP.Close()
        End If
    End Sub

    Private Sub btBusTercero_Click(sender As System.Object, e As System.EventArgs) Handles btBusTercero.Click

    End Sub
End Class